home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / easygrap.arc / EASYGRAF.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-21  |  1.6 KB  |  61 lines
  1. 1  DEF SEG=0
  2. 2  IF (PEEK(&H410) AND &H30)=&H30 THEN GOTO 400
  3. 10  SCREEN 0,1
  4. 20  COLOR 15,9,1
  5. 30  KEY OFF
  6. 40  CLS
  7. 50  PRINT STRING$(40,176)
  8. 60  PRINT STRING$(1,176)+SPACE$(38)+STRING$(1,176)
  9. 70  PRINT STRING$(1,176)+"       EASY - GRAF   MAIN  MENU       "+STRING$(1,176)
  10. 80  PRINT STRING$(1,176)+SPACE$(38)+STRING$(1,176)
  11. 90  PRINT STRING$(40,176)
  12. 100  PRINT " "
  13. 110  PRINT "          A  -  DISPLAY ITEM            "+"          B  -  ADD/CHANGE ITEM"
  14. 130  PRINT "          C  -  DISPLAY DIRECTORY       "+"          D  -  DELETE ITEM"
  15. 150  PRINT "          E  -  PRINT ITEM             "
  16. 170  PRINT "          X  -  ERASE/BUILD INDEX       "+"        Esc  -  EXIT"
  17. 190  PRINT " "
  18. 200  PRINT " "
  19. 210  PRINT "       SELECT FUNCTION BY LETTER"
  20. 220  K$=INKEY$:IF K$="" THEN 220
  21. 230  IF K$="A" THEN CHAIN "DISPGRAF"
  22. 240  IF K$="a" THEN CHAIN "dispgraf"
  23. 250  IF K$="B" THEN CHAIN "DRAWGRAF"
  24. 260  IF K$="b" THEN CHAIN "DRAWGRAF"
  25. 270  IF K$="C" THEN CHAIN "dispgrdr"
  26. 280  IF K$="c" THEN CHAIN "dispgrdr"
  27. 290  IF K$="D" THEN CHAIN "delgraf"
  28. 300  IF K$="d" THEN CHAIN "delgraf"
  29. 310  IF K$="E" THEN CHAIN "pringraf"
  30. 320  IF K$="e" THEN CHAIN "pringraf"
  31. 330  IF K$="F" THEN CHAIN "animgraf"
  32. 340  IF K$="f" THEN CHAIN "animgraf"
  33. 350  IF K$="X" THEN CHAIN "builgraf"
  34. 360  IF K$="x" THEN CHAIN "builgraf"
  35. 370  IF K$=CHR$(27) THEN GOTO 500
  36. 380  GOTO 220
  37. 400  CLS
  38. 410  PRINT " "
  39. 420  PRINT "        This program requires color display"
  40. 430  PRINT "            *****READY DISPLAY*****"
  41. 440  PRINT "  "
  42. 450  PRINT " "
  43. 460  PRINT " "
  44. 470  INPUT "        PRESS ENTER WHEN READY";ANSW$
  45. 480  CHAIN "colrgraf"
  46. 500  CLS
  47. 505  PRINT " "
  48. 510  PRINT " "
  49. 520  PRINT " "
  50. 530  PRINT "      Do you wish to switch to"
  51. 540  PRINT "      a monochrome display?"
  52. 550  INPUT "      [yes or no] ==>";ANSW2$
  53. 555  ANS$=LEFT$(ANSW2$,1)
  54. 560  IF ANS$="Y" OR ANS$="y" THEN CHAIN "monograf"
  55. 570  IF ANS$="N" OR ANS$="n" THEN GOTO 600
  56. 580  GOTO 550
  57. 600  COLOR 7,0,0
  58. 605  CLS
  59. 610  KEY ON
  60. 620  END
  61.